<%
on Error resume next

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open "D:\training\project\web\app\scrum\db\scrum.mdb"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open "select ID from product", conn
//response.write("abcdef")

do until rs.EOF
  for each x in rs.fields
    response.write(x.name & "=" & x.value)
  next
  rs.MoveNext
loop

rs.close
conn.close

if err.number<>0 then
response.write("err=" & err)
end if
%> 
